home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / andrew_smith_source / Trianglefill.AMOS / Trianglefill.amosSourceCode
AMOS Source Code  |  1992-02-26  |  514b  |  32 lines
  1. ' Triangle fill
  2.  
  3. ' Anchor first point 
  4.  
  5. Repeat 
  6.    XS=X Screen(X Mouse)
  7.    YS=Y Screen(Y Mouse)
  8. Until Mouse Click=1
  9.  
  10. ' Anchor second point
  11.  
  12. Gr Writing 2
  13.  
  14. Repeat 
  15.    XE=X Screen(X Mouse)
  16.    YE=Y Screen(Y Mouse)
  17.    Draw XS,YS To XE,YE
  18.    Wait Vbl 
  19.    Draw XS,YS To XE,YE
  20. Until Mouse Click=1
  21.  
  22. Repeat 
  23.    X=X Screen(X Mouse)
  24.    Y=Y Screen(Y Mouse)
  25.    Polygon XS,YS To XE,YE To X,Y To XS,YS
  26.    Wait Vbl 
  27.    Polygon XS,YS To XE,YE To X,Y To XS,YS
  28. Until Mouse Click=1
  29.  
  30. Gr Writing 0
  31.  
  32. Polygon XS,YS To XE,YE To X,Y To XS,YS